COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	tex fchart
C00003 00003	(fasload data)
C00005 00004	(fasload data)
C00009 00005	(fasload data)
C00019 00006	(fasload data)
C00023 ENDMK
C⊗;
tex fchart
r dvidov;fchart/s fchart.pre
tex schart
r dvidov;schart/s schart.pre
tex nschar
r dvidov;nschar/s nschar.pre
tex nchart
r dvidov;nchart/s nchart.pre
tex gchart
r dvidov;gchart/s gchart.pre
tex dchart
r dvidov;dchart/s dchart.pre
tex rchart
r dvidov;rchart/s rchart.pre
(fasload data)
(fasload fchart)

(defun fcharts ()
       (em:ecommands '(α π α ε F C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l
	      '(boyer browse destru traverse tak stak ctak takl takr deriv dderiv fdderiv
		      div2 fft puzzle triang fprint fread tprint frpoly))
	     (pages (em:readonly-var 'pages)))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-fchart (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(fcharts)

(fasload data)
(fasload schart)

(defun scharts ()
       (em:ecommands '(α π α ε S C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (setq *normalize* ())
       (let ((l
	      '(boyer browse destru traverse tak stak ctak takl takr deriv dderiv fdderiv
		      div2 fft puzzle triang fprint fread tprint frpoly))
	     (pages (em:readonly-var 'pages)))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-cpu (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-real (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(defun normal-scharts ()
       (em:ecommands '(α π α ε N S C H A R /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (setq *normalize* t)
       (let ((l
	      '(boyer browse destru traverse tak stak ctak takl takr deriv dderiv fdderiv
		      div2 fft puzzle triang fprint fread tprint frpoly))
	     (pages (em:readonly-var 'pages)))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-cpu (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-real (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(scharts)

(normal-scharts)
(fasload data)
(fasload tchart)

(defun normal-charts ()
       (em:ecommands '(α π α ε N C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l
	      '((sail d1 d2 d3 s3600)
		(interlisp-10 interlispvax780 d1)
		(interlispvax780 dec780cl franz780)
		(lm2 s3600 d1 d2 d3)
		(perq s3600 d1 d2 d3)
		(franz750 franz780 franz68k dec750cl)
		(franz750 nil750 psl750 dec750cl)
		(psl780 psl750 psl-dn300 psl-dn600)
		(sail interlisp-10 psl20 s3600)
		(psl20 psl-cray s-1 s3600)
		(dec730cl dec750cl dec780cl dec785cl)
		(psl780 psl-dn160 psl-dn300 psl-dn600)
		(psl-hp-ux psl-hp200 psl780 psl750)))
	     (pages (em:readonly-var 'pages)))
	    (setq *normalize* t)
	    (setq *global-normalize* ())
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-tchart-cpu (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x  L P E N D ⊗ ↔))
		(em:ecommands '(α x  l f i l e ⊗ ↔))
		(do-tchart-real (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(defun global-normal-charts ()
       (em:ecommands '(α π α ε G C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l
	      '((sail d1 d2 d3 s3600)
		(interlisp-10 interlispvax780 d1)
		(interlispvax780 dec780cl franz780)
		(lm2 s3600 d1 d2 d3)
		(perq s3600 d1 d2 d3)
		(franz750 franz780 franz68k dec750cl)
		(franz750 nil750 psl750 dec750cl)
		(psl780 psl750 psl-dn300 psl-dn600)
		(sail interlisp-10 psl20 s3600)
		(psl20 psl-cray s-1 s3600)
		(dec730cl dec750cl dec780cl dec785cl)
		(psl780 psl-dn160 psl-dn300 psl-dn600)
		(psl-hp-ux psl-hp200 psl780 psl750)))
	     (pages (em:readonly-var 'pages)))
	    (setq *normalize* t)
	    (setq *global-normalize* t)
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-tchart-cpu (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x  L P E N D ⊗ ↔))
		(em:ecommands '(α x  l f i l e ⊗ ↔))
		(do-tchart-real (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(defun global-normal-charts-dec-cl ()
       (em:ecommands '(α π α ε D C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l
	      '((sail d1 d2 d3 s3600)
		(interlisp-10 interlispvax780 d1)
		(interlispvax780 dec780cl franz780)
		(lm2 s3600 d1 d2 d3)
		(perq s3600 d1 d2 d3)
		(franz750 franz780 franz68k dec750cl)
		(franz750 nil750 psl750 dec750cl)
		(psl780 psl750 psl-dn300 psl-dn600)
		(sail interlisp-10 psl20 s3600)
		(psl20 psl-cray s-1 s3600)
		(dec730cl dec750cl dec780cl dec785cl)
		(psl780 psl-dn160 psl-dn300 psl-dn600)
		(psl-hp-ux psl-hp200 psl780 psl750)))
	     (pages (em:readonly-var 'pages)))
	    (setq *normalize* t)
	    (setq *global-normalize* 'dec780cl)
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-tchart-cpu (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x  L P E N D ⊗ ↔))
		(em:ecommands '(α x  l f i l e ⊗ ↔))
		(do-tchart-real (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(defun regular-charts ()
       (em:ecommands '(α π α ε R C H A R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (let ((l
	      '((sail d1 d2 d3 s3600)
		(interlisp-10 interlispvax780 d1)
		(interlispvax780 dec780cl franz780)
		(lm2 s3600 d1 d2 d3)
		(perq s3600 d1 d2 d3)
		(franz750 franz780 franz68k dec750cl)
		(franz750 nil750 psl750 dec750cl)
		(psl780 psl750 psl-dn300 psl-dn600)
		(sail interlisp-10 psl20 s3600)
		(psl20 psl-cray s-1 s3600)
		(dec730cl dec750cl dec780cl dec785cl)
		(psl780 psl-dn160 psl-dn300 psl-dn600)
		(psl-hp-ux psl-hp200 psl780 psl750)))
	     (pages (em:readonly-var 'pages)))
	    (setq *normalize* ())
	    (setq *global-normalize* ())
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-tchart-cpu (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x  L P E N D ⊗ ↔))
		(em:ecommands '(α x  l f i l e ⊗ ↔))
		(do-tchart-real (car l))
		(em:ecommands '(\ /v /f /i /l /l \ /e /j /e /c /t ⊗ ↔))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))


(normal-charts)
(global-normal-charts)
(global-normal-charts-dec-cl)
(regular-charts)
(fasload data)
(fasload schart)

(defun normal-scharts ()
       (em:ecommands '(α π α ε N S C H R T /. T E X ⊗ ↔))
       (em:ecommands '(α 3 α p))
       (setq *normalize* t)
       (setq *max-length* 19)
       (setq *leave-outs* '(franz780yy franz780ny franz780nn s-1 psl-cray
				       psl-dn600 psl-hp-ux
				       s3600fpa franz750yy franz750ny franz750nn
				       franz68kyy franz68kny franz68knn))
       (let ((l
	      '(boyer browse destru traverse tak stak ctak takl takr deriv dderiv
		      div2 fft puzzle triang fprint fread tprint))
	     (pages (em:readonly-var 'pages)))
	    (do ((l l (cdr l)))
		((null l))
		(em:ecommands '(α 9 α 9 α 9 α β D))
		(em:ecommands '(α x L P E N D ⊗ ↔))
		(do-schart-real (car l))
		(em:ecommands 
		 '(α l α 3 α β d))
		(cond ((< (em:readonly-var 'page) pages)
		       (em:ecommands '(α P)))))
	    (em:ecommands '(α x l t y p e ⊗ ↔))
	    ))

(normal-scharts)